home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / intee4.pov < prev    next >
Encoding:
Text File  |  1992-04-26  |  1.7 KB  |  89 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.
  4. // Image by Dan Farmer.
  5. // Demonstrates CSG intersection,  layered stone texture.
  6. // Time: about 3 hours @640x480+a0.2 on 486/33
  7.  
  8.  
  9. #include "include.inc"
  10.  
  11. camera {
  12.    location <0.0  8  -30>
  13.    direction <0.0 0.0  1.0>
  14.    up  <0.0  1.0  0.0>
  15.    right <1.33333 0.0 0.0>
  16.    look_at <0 0 0>
  17. }
  18.  
  19.  
  20. // Light source
  21. #declare Light1 = 0.95
  22. #declare Light2 = 0.75
  23.  
  24. object { light_source
  25.     { <-1 5 -15>
  26.     color red Light1 green Light1 blue Light1
  27.       spotlight
  28.       point_at <0 0 0>
  29.       tightness 2
  30.       radius  30
  31.       falloff 50
  32.     }
  33. }
  34.  
  35. object { light_source
  36.     { <-10 5 -10>
  37.     color red Light2 green Light2 blue Light2
  38.       spotlight
  39.       point_at <-2.5 0 -2.5>
  40.       tightness 5
  41.       radius  30
  42.       falloff 50
  43.     }
  44. }
  45.  
  46.  
  47. object { light_source
  48.     { <10 9 -10>
  49.     color red Light2 green Light2 blue Light2
  50.       spotlight
  51.       point_at <-10 10 0>
  52.       tightness 2
  53.       radius  30
  54.       falloff 50
  55.     }
  56. }
  57.  
  58. #declare Annulus = 0.98
  59. object {
  60.     intersection {
  61.         quadric { Cylinder_X }
  62.         quadric { Cylinder_Y }
  63.         quadric { Cylinder_X inverse scale < 1  Annulus Annulus > }
  64.         quadric { Cylinder_Y inverse scale < Annulus  1 Annulus > }
  65.  
  66.     }
  67.     // Underlying surface is very subtly mottled with bozo
  68.     texture {
  69.         Silver_Metal
  70.         specular 1 roughness 0.00001
  71.         reflection 0.125
  72.         ambient 0.25
  73.     }
  74.  
  75. scale <10 10 10>
  76. rotate <0 45 0>
  77. }
  78.  
  79. object {
  80.     plane {<0 1 0> -10 }
  81.     texture {
  82.         0.025
  83.         color NeonBlue
  84.         ambient 0.125
  85.         diffuse 0.6
  86.         reflection 0.25
  87.     }
  88. }
  89.